02_comments_number_analysis

grouped analysis

Super Grouped results

  ggplotly(
ggplot(filter(all_pronouns,total_num_com_in_sub < 100, num_til_quit > 6, post_num < 100)) +
  #geom_point(aes(post_num,contains_we,color=total_num_com_in_sub))+
  geom_smooth(aes(post_num,contains_i,color=total_num_com_in_sub))
)

`geom_smooth()` using method = 'loess' and formula 'y ~ x'

FINAL 3

all_pronouns <- pronoun_by_post_num %>%
#filter(post_num > 0, total_num_com_in_sub > 100), 
mutate(
  num_til_quit = (total_num_com_in_sub - post_num)
) %>% filter(num_til_quit < 5) %>% mutate(num_til_quit = as.character(num_til_quit), contains_wepct = contains_we*100)
ggplot(all_pronouns)+
  geom_point(aes(num_til_quit,contains_we,color = total_num_com_in_sub))

  library(RColorBrewer)
#ggplotly(
ggplot(filter(all_pronouns,  post_num>5), aes(post_num,contains_wepct,group=num_til_quit, color = num_til_quit)) +
  geom_point()+
  geom_smooth(se=FALSE)+ theme_classic(base_size = 15) +
   labs(title = "Collective Pronoun Use in Users' last 5 Comments in a Subreddit" ,
       subtitle = "Comments Grouped by Total Number of Comments in a Subreddit and Remaining Number of comments until last comment\nIncludes all comments from all subreddits where the author has at least 5 comments in that subreddit",
       caption = "") + xlab("Average of all authors' Nth comment in subreddit X") + ylab("Percentage of comments which contain 'We'") +
       scale_color_brewer(palette="Paired")
#)
ggsave("final3.png")

Saving 7.01 x 4.33 in image

ggplotly(
ggplot(filter(all_pronouns,total_num_com_in_sub > 15, total_num_com_in_sub < 400,num_til_quit > 5)) +
  geom_smooth(aes(post_num,ZNcontains_we, color = "We")) +
  geom_smooth(aes(post_num,ZNcontains_i, color = "I")) +
geom_smooth(aes(post_num,ZNcontains_us,color = "Us"  ))+
geom_smooth(aes(post_num,ZNcontains_they,color = "They"))+
geom_smooth(aes(post_num,ZNcontains_them,color = "Them"))+
geom_smooth(aes(post_num,ZNcontains_you,color = "You" ))+
geom_smooth(aes(post_num,ZNcontains_me,color = "Me"  ))
  
)

`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'